home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / T-Script v3.0 / TScript 020 3.1.4 / TScript 020 3.1.4.rsrc / POST_300 < prev    next >
Encoding:
Text File  |  1992-02-10  |  296 b   |  10 lines
  1. %!PS-Adobe-2.0 Query
  2. %%Title: Query for list of known fonts
  3. %%?BeginFontListQuery
  4. statusdict begin save
  5. /SC 100 string def
  6. SC 0 (user) putinterval
  7. FontDirectory{pop = flush}forall
  8. (fonts/*){dup length 6 sub 6 exch getinterval = flush}SC filenameforall (*)= flush
  9. restore end
  10. %%?EndFontListQuery